VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmRateChange 
   Caption         =   "Change Current Spend Rates"
   ClientHeight    =   12000
   ClientLeft      =   0
   ClientTop       =   -3080
   ClientWidth     =   10000
   OleObjectBlob   =   "frmRateChange.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmRateChange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Written by Jalisa Greene
'Last Updated 6/10/2014

Public LocID As Integer
Public rowNum As Integer
Public containNum As Integer
Public rateSource As String

Private Sub btnCancel_Click()
'**ACTION SUB CALLED WHEN USER CLICKS CANCEL**'
    Unload frmRateChange
End Sub

Private Sub btnSave_Click()
'**ACTION SUB CALLED WHEN USER CLICKS SAVE**

'**FIND OUT RATE SOURCE, CALL TO SAVE THAT PARTICULAR SOURCE**'
If rateSource = "Current Spend" Then
    Call SaveCurrentSpendRateChange
ElseIf rateSource = "Billing Corrections" Then
    Call SaveBillingCorrRateChange
ElseIf rateSource = "Rate Reductions" Then
    Call SaveRateRedRateChange
ElseIf rateSource = "Vendor Switch" Then
    Call SaveVendorSwitchRateChange
ElseIf rateSource = "Service Stand" Then
    Call SaveServiceStandRateChange
End If

Unload frmRateChange

End Sub

Private Sub UserForm_Initialize()

    'get location id from implementations form
    LocID = frmImplementations2.cmbLocations.Value
    'find rownum on ASR
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    'find current selected container number
    If frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        containNum = 1
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        containNum = 2
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        containNum = 3
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        containNum = 4
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        containNum = 5
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        containNum = 6
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        containNum = 7
    ElseIf frmImplementations2.cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        containNum = 8
    End If

    If frmImplementations2.multipgSpends.Value = 0 Then
        'we have making a rate change for the Current Spend
        rateSource = "Current Spend"
        Call CurrentSpendRateChange
    ElseIf frmImplementations2.multipgSpends.Value = 1 Then
        'we are making a rate change for Billing Corrections
        rateSource = "Billing Corrections"
        Call BillingCorrRateChange
    ElseIf frmImplementations2.multipgSpends.Value = 2 Then
        'we are making a rate change for Rate Reductions
        rateSource = "Rate Reductions"
        Call RateRedRateChange
    ElseIf frmImplementations2.multipgSpends.Value = 3 Then
        'we are making a rate change for Vendor Change
        rateSource = "Vendor Switch"
        Call VendorSwitchRateChange
    ElseIf frmImplementations2.multipgSpends.Value = 4 Then
        'we are making a rate change for Service Standardizations
        rateSource = "Service Stand"
        Call ServiceStandRateChange
    End If
End Sub

Private Sub CurrentSpendRateChange()
    If containNum = 1 Then
    'Container 1 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CND" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CNE" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CNF" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CNG" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CNH" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CNI" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CNJ" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CNK" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CNL" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CNM" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CNN" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CNO" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CNP" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CNQ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CNR" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CNS" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CNT" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CNU" & rowNum).Value
    ElseIf containNum = 2 Then
    'Container 2 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("COD" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("COE" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("COF" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("COG" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("COH" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("COI" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("COJ" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("COK" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("COL" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("COM" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CON" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("COO" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("COP" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("COQ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("COR" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("COS" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("COT" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("COU" & rowNum).Value
    ElseIf containNum = 3 Then
    'Container 3 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CPC" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CPD" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CPE" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CPF" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CPG" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CPH" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CPI" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CPJ" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CPK" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CPL" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CPM" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CPN" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CPO" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CPP" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CPQ" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CPR" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CPS" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CPT" & rowNum).Value
    ElseIf containNum = 4 Then
    'Container 4 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CQC" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CQD" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CQE" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CQF" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CQG" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CQH" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CQI" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CQJ" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CQK" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CQL" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CQM" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CQN" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CQO" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CQP" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CQQ" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CQR" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CQS" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CQT" & rowNum).Value
    ElseIf containNum = 5 Then
    'Container 5 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CRB" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CRC" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CRD" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CRE" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CRF" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CRG" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CRH" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CRI" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CRJ" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CRK" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CRL" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CRM" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CRN" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CRO" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CRP" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CRQ" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CRR" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CRS" & rowNum).Value
    ElseIf containNum = 6 Then
    'Container 6 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CSA" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CSB" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CSC" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CSD" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CSE" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CSF" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CSG" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CSH" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CSI" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CSJ" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CSK" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CSL" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CSM" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CSN" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CSO" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CSP" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CSQ" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CSR" & rowNum).Value
    ElseIf containNum = 7 Then
    'Container 7 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CTF" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CTG" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CTH" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CTI" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CTJ" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CTK" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CTL" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CTM" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CTN" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CTO" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CTP" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CTQ" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CTR" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CTS" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CTT" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CTU" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CTV" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CTW" & rowNum).Value
    ElseIf containNum = 8 Then
    'Container 8 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CUK" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CUL" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CUM" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CUN" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CUO" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CUP" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CUQ" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CUR" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CUS" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CUT" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CUU" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CUV" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CUW" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CUX" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CUY" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CUZ" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CVA" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CVB" & rowNum).Value
    End If
End Sub

Private Sub BillingCorrRateChange()
    If containNum = 1 Then
    'Container 1 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CVP" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CVQ" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CVR" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CVS" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CVT" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CVU" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CVV" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CVW" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CVX" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CVY" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CVZ" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CWA" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CWB" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CWC" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CWD" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CWE" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CWF" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CWG" & rowNum).Value
    ElseIf containNum = 2 Then
    'Container 2 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CWP" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CWQ" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CWR" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CWS" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CWT" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CWU" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CWV" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CWW" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CWX" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CWY" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CWZ" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CXA" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CXB" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CXC" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CXD" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CXE" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CXF" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CXG" & rowNum).Value
    ElseIf containNum = 3 Then
    'Container 3 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CXO" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CXP" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CXQ" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CXR" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CXS" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CXT" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CXU" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CXV" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CXW" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CXX" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CXY" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CXZ" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CYA" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CYB" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CYC" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CYD" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CYE" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CYF" & rowNum).Value
    ElseIf containNum = 4 Then
    'Container 4 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CYO" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CYP" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CYQ" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CYR" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CYS" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CYT" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CYU" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CYV" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CYW" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CYX" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CYY" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CYZ" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CZA" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CZB" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CZC" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CZD" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CZE" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CZF" & rowNum).Value
    ElseIf containNum = 5 Then
    'Container 5 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CZN" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CZO" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CZP" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CZQ" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CZR" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CZS" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CZT" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CZU" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CZV" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CZW" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CZX" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CZY" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CZZ" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DAA" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DAB" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DAC" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DAD" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DAE" & rowNum).Value
    ElseIf containNum = 6 Then
    'Container 6 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DAM" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DAN" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DAO" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DAP" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DAQ" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DAR" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DAS" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DAT" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DAU" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DAV" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DAW" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DAX" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DAY" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DAZ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DBA" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DBB" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DBC" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DBD" & rowNum).Value
    ElseIf containNum = 7 Then
    'Container 7 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DBR" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DBS" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DBT" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DBU" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DBV" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DBW" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DBX" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DBY" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DBZ" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DCA" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DCB" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DCC" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DCD" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DCE" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DCF" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DCG" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DCH" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DCI" & rowNum).Value
    ElseIf containNum = 8 Then
    'Container 8 Billing Correction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DCW" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DCX" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DCY" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DCZ" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DDA" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DDB" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DDC" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DDD" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DDE" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DDF" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DDG" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DDH" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DDI" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DDJ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DDK" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DDL" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DDM" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DDN" & rowNum).Value
    End If
End Sub

Private Sub RateRedRateChange()
    If containNum = 1 Then
    'Container 1 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DEB" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DEC" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DED" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DEE" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DEF" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DEG" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DEH" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DEI" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DEJ" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DEK" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DEL" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DEM" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DEN" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DEO" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DEP" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DEQ" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DER" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DES" & rowNum).Value
    ElseIf containNum = 2 Then
    'Container 2 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DFB" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DFC" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DFD" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DFE" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DFF" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DFG" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DFH" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DFI" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DFJ" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DFK" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DFL" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DFM" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DFN" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DFO" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DFP" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DFQ" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DFR" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DFS" & rowNum).Value
    ElseIf containNum = 3 Then
    'Container 3 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DGA" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DGB" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DGC" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DGD" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DGE" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DGF" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DGG" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DGH" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DGI" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DJJ" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DGK" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DGL" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DGM" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DGN" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DGO" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DGP" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DGQ" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DGR" & rowNum).Value
    ElseIf containNum = 4 Then
    'Container 4 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DHA" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DHB" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DHC" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DHD" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DHE" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DHF" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DHG" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DHH" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DHI" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DHJ" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DHK" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DHL" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DHM" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DHN" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DHO" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DHP" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DHQ" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DHR" & rowNum).Value
    ElseIf containNum = 5 Then
    'Container 5 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DHZ" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DIA" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DIB" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DIC" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DID" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DIE" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DIF" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DIG" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DIH" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DII" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DIJ" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DIK" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DIL" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DIM" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DIN" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DIO" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DIP" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DIQ" & rowNum).Value
    ElseIf containNum = 6 Then
    'Container 6 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DIY" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DIZ" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DJA" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DJB" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DJC" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DJD" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DJE" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DJF" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DJG" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DJH" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DJI" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DJJ" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DJK" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DJL" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DJM" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DJN" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DJO" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DJP" & rowNum).Value
    ElseIf containNum = 7 Then
    'Container 7 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DKD" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DKE" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DKF" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DKG" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DKH" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DKI" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DKJ" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DKK" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DKL" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DKM" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DKN" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DKO" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DKP" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DKQ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DKR" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DKS" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DKT" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DKU" & rowNum).Value
    ElseIf containNum = 8 Then
    'Container 8 Rate Reduction Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DLI" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DLJ" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DLK" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DLL" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DLM" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DLN" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DLO" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DLP" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DLQ" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DLR" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DLS" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DLT" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DLU" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DLV" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DLW" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DLX" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DLY" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DLZ" & rowNum).Value
    End If
End Sub

Private Sub VendorSwitchRateChange()
If containNum = 1 Then
    'Container 1 Vendor Switch Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DMN" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DMO" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DMP" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DMQ" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DMR" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DMS" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DMT" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DMU" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DMV" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DMW" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DMX" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DMY" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DMZ" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DNA" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DNB" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DNC" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DND" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DNE" & rowNum).Value
    ElseIf containNum = 2 Then
    'Container 2 Vendor Switch  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DNN" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DNO" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DNP" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DNQ" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DNR" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DNS" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DNT" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DNU" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DNV" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DNW" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DNX" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DNY" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DNZ" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DOA" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DOB" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DOC" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DOD" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DOE" & rowNum).Value
    ElseIf containNum = 3 Then
    'Container 3 Vendor Switch  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DOM" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DON" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DOO" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DOP" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DOQ" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DOR" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DOS" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DOT" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DOU" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DOV" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DOW" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DOX" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DOY" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DOZ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DPA" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DPB" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DPC" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DPD" & rowNum).Value
    ElseIf containNum = 4 Then
    'Container 4 Vendor Switch Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DPM" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DPN" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DPO" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DPP" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DPQ" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DPR" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DPS" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DPT" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DPU" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DPV" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DPW" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DPX" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DPY" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DPZ" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DQA" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DQB" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DQC" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DQD" & rowNum).Value
    ElseIf containNum = 5 Then
    'Container 5 Vendor Switch  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DQL" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DQM" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DQN" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DQO" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DQP" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DQQ" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DQR" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DQS" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DQT" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DQU" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DQV" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DQW" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DQX" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DQY" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DQZ" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DRA" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DRB" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DRC" & rowNum).Value
    ElseIf containNum = 6 Then
    'Container 6 Vendor Switch  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DRK" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DRL" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DRM" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DRN" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DRO" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DRP" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DRQ" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DRR" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DRS" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DRT" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DRU" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DRV" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DRW" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DRX" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DRY" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DRZ" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DSA" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DSB" & rowNum).Value
    ElseIf containNum = 7 Then
    'Container 7 Vendor Switch  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DSP" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DSQ" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DSR" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DSS" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DST" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DSU" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DSV" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DSW" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DSX" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DSY" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DSZ" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DTA" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DTB" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DTC" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DTD" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DTE" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DTF" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DTG" & rowNum).Value
    ElseIf containNum = 8 Then
    'Container 8 Vendor Switch Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DTU" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DTV" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DTW" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DTX" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DTY" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DTZ" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DUA" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DUB" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DUC" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DUD" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DUE" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DUF" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DUG" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DUH" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DUI" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DUJ" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DUK" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DUL" & rowNum).Value
    End If
End Sub

Private Sub ServiceStandRateChange()
If containNum = 1 Then
    'Container 1 Service Standardization Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DVA" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DVB" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DVC" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DVD" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DVE" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DVF" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DVG" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DVH" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DVI" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DVJ" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DVK" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DVL" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DVM" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DVN" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DVO" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DVP" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DVQ" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DVR" & rowNum).Value
    ElseIf containNum = 2 Then
    'Container 2 Service Standardization  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DWA" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DWB" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DWC" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DWD" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DWE" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DWF" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DWG" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DWH" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DWI" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DWJ" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DWK" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DWL" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DWM" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DWN" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DWO" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DWP" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DWQ" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DWR" & rowNum).Value
    ElseIf containNum = 3 Then
    'Container 3 Service Standardization  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DWZ" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DXA" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DXB" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DXC" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DXD" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DXE" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DXF" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DXG" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DXH" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DXI" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DXJ" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DXK" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DXL" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DXM" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DXN" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DXO" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DXP" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DXQ" & rowNum).Value
    ElseIf containNum = 4 Then
    'Container 4 Service Standardization Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DXZ" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DYA" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DYB" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DYC" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DYD" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DYE" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DYF" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DYG" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DYH" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DYI" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DYJ" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DYK" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DYL" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DYM" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DYN" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DYO" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DYP" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DYQ" & rowNum).Value
    ElseIf containNum = 5 Then
    'Container 5 Service Standardization  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DYY" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DYZ" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DZA" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("DZB" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("DZC" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("DZD" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("DZE" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("DZF" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("DZG" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("DZH" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("DZI" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("DZJ" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("DZK" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("DZL" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("DZM" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("DZN" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("DZO" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("DZP" & rowNum).Value
    ElseIf containNum = 6 Then
    'Container 6 Service Standardization  Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("DZX" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("DZY" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("DZZ" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("EAA" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("EAB" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("EAC" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("EAD" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("EAE" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("EAF" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("EAG" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("EAH" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("EAI" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("EAJ" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("EAK" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("EAL" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("EAM" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("EAN" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("EAO" & rowNum).Value
    ElseIf containNum = 7 Then
    'Container 7 Service Standardization Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("EBC" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("EBD" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("EBE" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("EBF" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("EBG" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("EBH" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("EBI" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("EBJ" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("EBK" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("EBL" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("EBM" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("EBN" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("EBO" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("EBP" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("EBQ" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("EBR" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("EBS" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("EBT" & rowNum).Value
    ElseIf containNum = 8 Then
    'Container 8 Service Standardization Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("ECH" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("ECI" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("ECJ" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("ECK" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("ECL" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("ECM" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("ECN" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("ECO" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("ECP" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("ECQ" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("ECR" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("ECS" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("ECT" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("ECU" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("ECV" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("ECW" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("ECX" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("ECY" & rowNum).Value
    End If
End Sub

Private Sub SaveCurrentSpendRateChange()
    If containNum = 1 Then
    'Container 1 Current Spend Rate Change
        Worksheets("ASR").Range("CND" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CNE" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CNF" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CNG" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CNH" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CNI" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CNJ" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CNK" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CNL" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CNM" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CNN" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CNO" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CNP" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CNQ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CNR" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CNS" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CNT" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CNU" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 2 Then
    'Container 2 Current Spend Rate Change
        Worksheets("ASR").Range("COD" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("COE" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("COF" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("COG" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("COH" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("COI" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("COJ" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("COK" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("COL" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("COM" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CON" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("COO" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("COP" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("COQ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("COR" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("COS" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("COT" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("COU" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 3 Then
    'Container 3 Current Spend Rate Change
        Worksheets("ASR").Range("CPC" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CPD" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CPE" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CPF" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CPG" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CPH" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CPI" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CPJ" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CPK" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CPL" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CPM" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CPN" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CPO" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CPP" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CPQ" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CPR" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CPS" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CPT" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 4 Then
    'Container 4 Current Spend Rate Change
        txt1BaseSvc.Value = Worksheets("ASR").Range("CQC" & rowNum).Value
        txt1EnvFee.Value = Worksheets("ASR").Range("CQD" & rowNum).Value
        txt1FuelFee.Value = Worksheets("ASR").Range("CQE" & rowNum).Value
        txt1FeeType1.Value = Worksheets("ASR").Range("CQF" & rowNum).Value
        txt1FeePrice1.Value = Worksheets("ASR").Range("CQG" & rowNum).Value
        txt1Rate1.Value = Worksheets("ASR").Range("CQH" & rowNum).Value
        txt1FeeType2.Value = Worksheets("ASR").Range("CQI" & rowNum).Value
        txt1FeePrice2.Value = Worksheets("ASR").Range("CQJ" & rowNum).Value
        txt1Rate2.Value = Worksheets("ASR").Range("CQK" & rowNum).Value
        txt1FeeType3.Value = Worksheets("ASR").Range("CQL" & rowNum).Value
        txt1FeePrice3.Value = Worksheets("ASR").Range("CQM" & rowNum).Value
        txt1Rate3.Value = Worksheets("ASR").Range("CQN" & rowNum).Value
        txt1FeeType4.Value = Worksheets("ASR").Range("CQO" & rowNum).Value
        txt1FeePrice4.Value = Worksheets("ASR").Range("CQP" & rowNum).Value
        txt1Rate4.Value = Worksheets("ASR").Range("CQQ" & rowNum).Value
        txt1FeeType5.Value = Worksheets("ASR").Range("CQR" & rowNum).Value
        txt1FeePrice5.Value = Worksheets("ASR").Range("CQS" & rowNum).Value
        txt1Rate5.Value = Worksheets("ASR").Range("CQT" & rowNum).Value
    ElseIf containNum = 5 Then
    'Container 5 Current Spend Rate Change
        Worksheets("ASR").Range("CRB" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CRC" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CRD" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CRE" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CRF" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CRG" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CRH" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CRI" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CRJ" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CRK" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CRL" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CRM" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CRN" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CRO" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CRP" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CRQ" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CRR" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CRS" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 6 Then
    'Container 6 Current Spend Rate Change
        Worksheets("ASR").Range("CSA" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CSB" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CSC" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CSD" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CSE" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CSF" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CSG" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CSH" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CSI" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CSJ" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CSK" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CSL" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CSM" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CSN" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CSO" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CSP" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CSQ" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CSR" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 7 Then
    'Container 7 Current Spend Rate Change
        Worksheets("ASR").Range("CTF" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CTG" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CTH" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CTI" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CTJ" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CTK" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CTL" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CTM" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CTN" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CTO" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CTP" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CTQ" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CTR" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CTS" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CTT" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CTU" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CTV" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CTW" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 8 Then
    'Container 8 Current Spend Rate Change
        Worksheets("ASR").Range("CUK" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CUL" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CUM" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CUN" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CUO" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CUP" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CUQ" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CUR" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CUS" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CUT" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CUU" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CUV" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CUW" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CUX" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CUY" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CUZ" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CVA" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CVB" & rowNum).Value = txt1Rate5.Value
    End If
End Sub

Private Sub SaveBillingCorrRateChange()
    If containNum = 1 Then
    'Container 1 Billing Correction Rate Change
        Worksheets("ASR").Range("CVP" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CVQ" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CVR" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CVS" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CVT" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CVU" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CVV" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CVW" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CVX" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CVY" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CVZ" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CWA" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CWB" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CWC" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CWD" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CWE" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CWF" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CWG" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 2 Then
    'Container 2 Billing Correction Rate Change
        Worksheets("ASR").Range("CWP" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CWQ" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CWR" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CWS" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CWT" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CWU" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CWV" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CWW" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CWX" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CWY" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CWZ" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CXA" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CXB" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CXC" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CXD" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CXE" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CXF" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CXG" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 3 Then
    'Container 3 Billing Correction Rate Change
        Worksheets("ASR").Range("CXO" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CXP" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CXQ" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CXR" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CXS" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CXT" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CXU" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CXV" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CXW" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CXX" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CXY" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CXZ" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CYA" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CYB" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CYC" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CYD" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CYE" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CYF" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 4 Then
    'Container 4 Billing Correction Rate Change
        Worksheets("ASR").Range("CYO" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CYP" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CYQ" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CYR" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CYS" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CYT" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CYU" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CYV" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CYW" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CYX" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CYY" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CYZ" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CZA" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("CZB" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("CZC" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("CZD" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("CZE" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("CZF" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 5 Then
    'Container 5 Billing Correction Rate Change
        Worksheets("ASR").Range("CZN" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("CZO" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("CZP" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("CZQ" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("CZR" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("CZS" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("CZT" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("CZU" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("CZV" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("CZW" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("CZX" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("CZY" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("CZZ" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DAA" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DAB" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DAC" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DAD" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DAE" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 6 Then
    'Container 6 Billing Correction Rate Change
        Worksheets("ASR").Range("DAM" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DAN" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DAO" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DAP" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DAQ" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DAR" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DAS" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DAT" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DAU" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DAV" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DAW" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DAX" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DAY" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DAZ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DBA" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DBB" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DBC" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DBD" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 7 Then
    'Container 7 Billing Correction Rate Change
        Worksheets("ASR").Range("DBR" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DBS" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DBT" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DBU" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DBV" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DBW" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DBX" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DBY" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DBZ" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DCA" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DCB" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DCC" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DCD" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DCE" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DCF" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DCG" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DCH" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DCI" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 8 Then
    'Container 8 Billing Correction Rate Change
        Worksheets("ASR").Range("DCW" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DCX" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DCY" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DCZ" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DDA" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DDB" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DDC" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DDD" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DDE" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DDF" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DDG" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DDH" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DDI" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DDJ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DDK" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DDL" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DDM" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DDN" & rowNum).Value = txt1Rate5.Value
    End If
End Sub

Private Sub SaveRateRedRateChange()
    If containNum = 1 Then
    'Container 1 Rate Reduction Rate Change
        Worksheets("ASR").Range("DEB" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DEC" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DED" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DEE" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DEF" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DEG" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DEH" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DEI" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DEJ" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DEK" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DEL" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DEM" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DEN" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DEO" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DEP" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DEQ" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DER" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DES" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 2 Then
    'Container 2 Rate Reduction Rate Change
        Worksheets("ASR").Range("DFB" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DFC" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DFD" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DFE" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DFF" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DFG" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DFH" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DFI" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DFJ" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DFK" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DFL" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DFM" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DFN" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DFO" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DFP" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DFQ" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DFR" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DFS" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 3 Then
    'Container 3 Rate Reduction Rate Change
        Worksheets("ASR").Range("DGA" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DGB" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DGC" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DGD" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DGE" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DGF" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DGG" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DGH" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DGI" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DJJ" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DGK" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DGL" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DGM" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DGN" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DGO" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DGP" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DGQ" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DGR" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 4 Then
    'Container 4 Rate Reduction Rate Change
        Worksheets("ASR").Range("DHA" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DHB" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DHC" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DHD" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DHE" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DHF" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DHG" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DHH" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DHI" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DHJ" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DHK" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DHL" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DHM" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DHN" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DHO" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DHP" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DHQ" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DHR" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 5 Then
    'Container 5 Rate Reduction Rate Change
        Worksheets("ASR").Range("DHZ" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DIA" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DIB" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DIC" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DID" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DIE" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DIF" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DIG" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DIH" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DII" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DIJ" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DIK" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DIL" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DIM" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DIN" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DIO" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DIP" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DIQ" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 6 Then
    'Container 6 Rate Reduction Rate Change
        Worksheets("ASR").Range("DIY" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DIZ" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DJA" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DJB" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DJC" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DJD" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DJE" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DJF" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DJG" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DJH" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DJI" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DJJ" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DJK" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DJL" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DJM" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DJN" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DJO" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DJP" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 7 Then
    'Container 7 Rate Reduction Rate Change
        Worksheets("ASR").Range("DKD" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DKE" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DKF" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DKG" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DKH" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DKI" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DKJ" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DKK" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DKL" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DKM" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DKN" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DKO" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DKP" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DKQ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DKR" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DKS" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DKT" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DKU" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 8 Then
    'Container 8 Rate Reduction Rate Change
        Worksheets("ASR").Range("DLI" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DLJ" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DLK" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DLL" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DLM" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DLN" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DLO" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DLP" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DLQ" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DLR" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DLS" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DLT" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DLU" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DLV" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DLW" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DLX" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DLY" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DLZ" & rowNum).Value = txt1Rate5.Value
    End If
End Sub

Private Sub SaveVendorSwitchRateChange()
If containNum = 1 Then
    'Container 1 Vendor Switch Rate Change
        Worksheets("ASR").Range("DMN" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DMO" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DMP" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DMQ" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DMR" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DMS" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DMT" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DMU" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DMV" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DMW" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DMX" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DMY" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DMZ" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DNA" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DNB" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DNC" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DND" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DNE" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 2 Then
    'Container 2 Vendor Switch  Rate Change
        Worksheets("ASR").Range("DNN" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DNO" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DNP" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DNQ" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DNR" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DNS" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DNT" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DNU" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DNV" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DNW" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DNX" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DNY" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DNZ" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DOA" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DOB" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DOC" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DOD" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DOE" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 3 Then
    'Container 3 Vendor Switch  Rate Change
        Worksheets("ASR").Range("DOM" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DON" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DOO" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DOP" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DOQ" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DOR" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DOS" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DOT" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DOU" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DOV" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DOW" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DOX" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DOY" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DOZ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DPA" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DPB" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DPC" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DPD" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 4 Then
    'Container 4 Vendor Switch Rate Change
        Worksheets("ASR").Range("DPM" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DPN" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DPO" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DPP" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DPQ" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DPR" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DPS" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DPT" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DPU" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DPV" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DPW" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DPX" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DPY" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DPZ" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DQA" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DQB" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DQC" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DQD" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 5 Then
    'Container 5 Vendor Switch  Rate Change
        Worksheets("ASR").Range("DQL" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DQM" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DQN" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DQO" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DQP" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DQQ" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DQR" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DQS" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DQT" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DQU" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DQV" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DQW" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DQX" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DQY" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DQZ" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DRA" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DRB" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DRC" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 6 Then
    'Container 6 Vendor Switch  Rate Change
        Worksheets("ASR").Range("DRK" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DRL" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DRM" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DRN" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DRO" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DRP" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DRQ" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DRR" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DRS" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DRT" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DRU" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DRV" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DRW" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DRX" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DRY" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DRZ" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DSA" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DSB" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 7 Then
    'Container 7 Vendor Switch  Rate Change
        Worksheets("ASR").Range("DSP" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DSQ" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DSR" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DSS" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DST" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DSU" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DSV" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DSW" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DSX" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DSY" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DSZ" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DTA" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DTB" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DTC" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DTD" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DTE" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DTF" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DTG" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 8 Then
    'Container 8 Vendor Switch Rate Change
        Worksheets("ASR").Range("DTU" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DTV" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DTW" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DTX" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DTY" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DTZ" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DUA" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DUB" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DUC" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DUD" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DUE" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DUF" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DUG" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DUH" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DUI" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DUJ" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DUK" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DUL" & rowNum).Value = txt1Rate5.Value
    End If
End Sub

Private Sub SaveServiceStandRateChange()
If containNum = 1 Then
    'Container 1 Service Standardization Rate Change
        Worksheets("ASR").Range("DVA" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DVB" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DVC" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DVD" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DVE" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DVF" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DVG" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DVH" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DVI" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DVJ" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DVK" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DVL" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DVM" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DVN" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DVO" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DVP" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DVQ" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DVR" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 2 Then
    'Container 2 Service Standardization  Rate Change
        Worksheets("ASR").Range("DWA" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DWB" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DWC" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DWD" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DWE" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DWF" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DWG" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DWH" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DWI" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DWJ" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DWK" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DWL" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DWM" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DWN" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DWO" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DWP" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DWQ" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DWR" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 3 Then
    'Container 3 Service Standardization  Rate Change
        Worksheets("ASR").Range("DWZ" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DXA" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DXB" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DXC" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DXD" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DXE" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DXF" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DXG" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DXH" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DXI" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DXJ" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DXK" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DXL" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DXM" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DXN" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DXO" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DXP" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DXQ" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 4 Then
    'Container 4 Service Standardization Rate Change
        Worksheets("ASR").Range("DXZ" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DYA" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DYB" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DYC" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DYD" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DYE" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DYF" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DYG" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DYH" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DYI" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DYJ" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DYK" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DYL" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DYM" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DYN" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DYO" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DYP" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DYQ" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 5 Then
    'Container 5 Service Standardization  Rate Change
        Worksheets("ASR").Range("DYY" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DYZ" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DZA" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("DZB" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("DZC" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("DZD" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("DZE" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("DZF" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("DZG" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("DZH" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("DZI" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("DZJ" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("DZK" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("DZL" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("DZM" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("DZN" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("DZO" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("DZP" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 6 Then
    'Container 6 Service Standardization  Rate Change
        Worksheets("ASR").Range("DZX" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("DZY" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("DZZ" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("EAA" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("EAB" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("EAC" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("EAD" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("EAE" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("EAF" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("EAG" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("EAH" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("EAI" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("EAJ" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("EAK" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("EAL" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("EAM" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("EAN" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("EAO" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 7 Then
    'Container 7 Service Standardization Rate Change
        Worksheets("ASR").Range("EBC" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("EBD" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("EBE" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("EBF" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("EBG" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("EBH" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("EBI" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("EBJ" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("EBK" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("EBL" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("EBM" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("EBN" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("EBO" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("EBP" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("EBQ" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("EBR" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("EBS" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("EBT" & rowNum).Value = txt1Rate5.Value
    ElseIf containNum = 8 Then
    'Container 8 Service Standardization Rate Change
        Worksheets("ASR").Range("ECH" & rowNum).Value = txt1BaseSvc.Value
        Worksheets("ASR").Range("ECI" & rowNum).Value = txt1EnvFee.Value
        Worksheets("ASR").Range("ECJ" & rowNum).Value = txt1FuelFee.Value
        Worksheets("ASR").Range("ECK" & rowNum).Value = txt1FeeType1.Value
        Worksheets("ASR").Range("ECL" & rowNum).Value = txt1FeePrice1.Value
        Worksheets("ASR").Range("ECM" & rowNum).Value = txt1Rate1.Value
        Worksheets("ASR").Range("ECN" & rowNum).Value = txt1FeeType2.Value
        Worksheets("ASR").Range("ECO" & rowNum).Value = txt1FeePrice2.Value
        Worksheets("ASR").Range("ECP" & rowNum).Value = txt1Rate2.Value
        Worksheets("ASR").Range("ECQ" & rowNum).Value = txt1FeeType3.Value
        Worksheets("ASR").Range("ECR" & rowNum).Value = txt1FeePrice3.Value
        Worksheets("ASR").Range("ECS" & rowNum).Value = txt1Rate3.Value
        Worksheets("ASR").Range("ECT" & rowNum).Value = txt1FeeType4.Value
        Worksheets("ASR").Range("ECU" & rowNum).Value = txt1FeePrice4.Value
        Worksheets("ASR").Range("ECV" & rowNum).Value = txt1Rate4.Value
        Worksheets("ASR").Range("ECW" & rowNum).Value = txt1FeeType5.Value
        Worksheets("ASR").Range("ECX" & rowNum).Value = txt1FeePrice5.Value
        Worksheets("ASR").Range("ECY" & rowNum).Value = txt1Rate5.Value
    End If
End Sub
